﻿Public Class Menu

    Private Sub Menu_Hover(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.MouseHover, Credits.MouseHover, Quit.MouseHover
        sender.ForeColor = Color.ForestGreen
    End Sub
    Private Sub Menu_Over(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.MouseLeave, Credits.MouseLeave, Quit.MouseLeave
        sender.ForeColor = Color.Black
    End Sub

    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        Form1.Redo()
        Me.Visible = False
        For Each i As Object In Me.ParentForm.Controls
            If i.name = "Domba1" Then
                i.Mulai()
            End If
        Next
    End Sub

    Private Sub Credits_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Credits.Click
        Brand.Visible = False
        Board1.Visible = True
        Board1.Panel1.Visible = True
    End Sub
    Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit.Click
        Me.ParentForm.Close()
    End Sub

End Class
